home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib06.dsk / POORBOY'S LE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  40 lines
  1. 10  REM  **************************
  2. 11  REM  *    POORBOY'S  LE       *
  3. 12  REM  *        BY DEAN KAY     *
  4. 13  REM  *   APPLESOFT BASIC      *
  5. 14  REM  * COPYRIGHT (C) 1981 BY  *
  6. 15  REM  *    MICRO-SPARC INC.    *
  7. 16  REM  **************************
  8. 130  REM  'NOTE' THIS PROGRAM MUST BE RUN BEFORE THE BLOAD CAN BE TYPED IN AT $9C00.
  9. 140  TEXT : HOME : INVERSE :H = 9
  10. 150  ONERR  GOTO 500
  11. 160  HTAB H: PRINT "**************************"
  12. 170  HTAB H: PRINT "*     POORBOY'S PLE      *"
  13. 180  HTAB H: PRINT "*          BY            *"
  14. 190  HTAB H: PRINT "*       DEAN KAY         *"
  15. 200  HTAB H: PRINT "**************************"
  16. 210  NORMAL 
  17. 220  PRINT : HTAB 7: PRINT "PROGRAM TO ADD THESE FEATURES"
  18. 230  HTAB 10: PRINT "TO INTEGER AND APPLESOFT": PRINT 
  19. 240  PRINT "HIMEM IS NOW $9500 AND IS NOT AFFECTED": PRINT "BY ANY COMMANDS EXCEPT 'RESET' WHICH": PRINT "REQUIRES A CALL-25600 TO RESTORE THE": PRINT "IN AND OUT HOOKS."
  20. 250  PRINT : HTAB H +1: PRINT "HIT ANY KEY TO CONTINUE": CALL  -756
  21. 260  POKE 34,8: HOME : PRINT 
  22. 270  HTAB H: PRINT "ANY KEY    = STOP LIST"
  23. 280  HTAB H: PRINT "ANY KEY    = RESTART LISTING"
  24. 290  HTAB H: PRINT "RETURN     = ABORT LISTING"
  25. 300  HTAB H: PRINT "CTRL A     = LAST BLOAD A & L"
  26. 310  HTAB H: PRINT "CTRL O     = CURSOR ADVANCE"
  27. 320  HTAB H: PRINT "ESC L      = JUMP TO MONITOR"
  28. 330  HTAB H: PRINT "ESC H      = CLEAR SCREEN"
  29. 340  HTAB H: PRINT "ESC P      = 30 CHAR LINE"
  30. 350  HTAB H: PRINT "ESC N      = NORMAL LINE"
  31. 360  HTAB H: PRINT "ESC IJKM   = SAME AS 'ESC ABCD'"
  32. 370  HTAB H: PRINT "SHIFT &    = RESTORE POORBOY'S"
  33. 380  HTAB H: PRINT "CALL-25600 = RESTORE FROM INT"
  34. 390  REM  MOVE DOS BUFFERS DOWN ONE SECTOR
  35. 400  POKE 40193,155: CALL 42964: REM  CHANGE $9D01 TO $9B AND CALL $A7D4
  36. 410  POKE 1014,0: POKE 1015,156: REM  CHANGE $3F6 TO $00, AND $3F7 TO $9C
  37. 420  PRINT  CHR$(4);"BRUN POORBOY'S PLE"
  38. 430  NORMAL : POKE 34,0: VTAB 20: PRINT "DONE": NEW : END 
  39. 500  HOME : VTAB 10: PRINT "POORBOY'S PLE. BLOAD IS NOT ON THIS ": PRINT "DISK. PLEASE TYPE IT IN AT $9C00 NOW": PRINT "OR LOAD IT FROM ANOTHER DISK."
  40. 510  END